MessageDialog Class

Used to design and display customized message dialog boxes. Similar to the MsgBox function but the MessageDialog class is much more flexible.

Events

None

Properties

ActionButton

AlternateActionButton

Methods

More information available in parent classes: Object

Notes

A MessageDialog dialog can have up to three buttons, an icon, and main and subordinate text. On Windows and Linux, it can also have text in its title bar. By default, only the ActionButton's Visible property is True. To use any other buttons, you must set their Visible properties to True.

Icons

The four icons supported by MessageDialog are not the same on all platforms. In particular, Mac OS X shows the application icon for the values of 0, 2, and 3.

Handling the button click

After the user has clicked a button in the MessageDialog, the ShowModal method returns the MessageDialogButton that was pressed. You need to check this against the three types of MessageDialogButtons belonging to the MessageDialog to determine which button the user clicked. See the example.

Example

The following example creates and manages a "Save Changes" dialog box without the need to create an instance of the Window class.

Dim d as New MessageDialog  //declare the MessageDialog object
Dim b as MessageDialogButton //for handling the result
d.icon=MessageDialog.GraphicCaution   //display warning icon
d.ActionButton.Caption="Save"
d.CancelButton.Visible= True     //show the Cancel button
d.AlternateActionButton.Visible= True   //show the "Don't Save" button
d.AlternateActionButton.Caption="Don't Save"
d.Message="Do you want to save changes to this document" _
         +" before closing?"
d.Explanation="If you don't save, your changes will be lost. "

b=d.ShowModal     //display the dialog
Select Case b //determine which button was pressed.
Case d.ActionButton
  //user pressed Save
Case d.AlternateActionButton
  //user pressed Don't Save
Case d.CancelButton
  //user pressed Cancel
End select